Заполнить файл F целыми числами, полученными с помощью генератора случайных чисел. Найти количество удвоенных нечётных чисел среди компонентов файла -Pascal(Паскаль)

uses crt;
var f:text; 
    a:1..maxint;
    k,i:byte; j:integer;
begin
clrscr;
randomize;
assign(f,'c:/chisla.txt');{создаем файл}
rewrite(f);{открываем для записи}
for j:= 1 to 10 do
begin
a:=random(100);{случайное натуральное число}
write(f,a,' ');{записываем в файл через пробел}
end;
reset(f);{открываем файл для чтения}
k:=0;
while not(eof(f)) do{пока не конец файла}
  begin
    read(f,a);{читаем числа}
    if (a mod 2=0)and((a div 2)mod 2<>0){если число четное, а его половинка нечетная}
    then k:=k+1;{считаем}
  end;
write('Kolichestvo udvoennyh necetnyh=',k);
close(f);{закрываем файл}
readln
end.